home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 September
/
CHIP Eylül 1998.iso
/
demolar
/
lokman
/
DISK1
/
_SETUP.4
/
Group1
/
Demo8E.exe
/
0
/
RCDATA
/
TFORMTAKAS
/
TFORMTAKAS.txt
Wrap
Text File
|
1998-07-30
|
17KB
|
627 lines
object FormTakas: TFormTakas
Left = 138
Top = 36
Width = 407
Height = 399
HelpContext = 133
ActiveControl = Panel1
Caption = 'Takas Kay�t'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
object Panel1: TPanel
Left = 0
Top = 313
Width = 399
Height = 59
HelpContext = 133
Align = alBottom
BevelInner = bvLowered
BorderWidth = 2
Color = clRed
TabOrder = 0
object Label7: TLabel
Left = 138
Top = 6
Width = 134
Height = 15
Caption = 'Kay�t ��lemleri Butonlar�'
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 13
Top = 7
Width = 94
Height = 15
Caption = 'Kay�t Hareketleri'
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object DBNavigator: TDBNavigator
Left = 12
Top = 24
Width = 108
Height = 27
DataSource = DataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
Ctl3D = False
Hints.Strings = (
'�lk Kay�t'
'�nceki Kay�t'
'Sonraki Kay�t'
'Son Kay�t')
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object DBNavigator1: TDBNavigator
Left = 147
Top = 24
Width = 108
Height = 27
Hint = 'K�lavuz'
DataSource = DataSource1
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbCancel]
Ctl3D = False
Hints.Strings = (
'�lk kay�t'
'�nceki'
'Sonraki'
'SonKay�t'
'Yeni Kay�t'
'Kay�t Sil'
'D�zelt'
'Kaydet'
'Vazge�'
'Tazele')
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object BitBtn2: TBitBtn
Left = 281
Top = 24
Width = 108
Height = 27
Caption = 'Kay�t Sakla'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = BitBtn2Click
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
59905555555555555777555555555555555555555555555555550000}
NumGlyphs = 2
end
end
object Panel2: TPanel
Left = 0
Top = 49
Width = 399
Height = 264
HelpContext = 133
Align = alClient
BevelInner = bvLowered
BorderWidth = 3
BorderStyle = bsSingle
Caption = 'Panel2'
Color = clTeal
TabOrder = 1
object ScrollBox: TScrollBox
Left = 5
Top = 5
Width = 385
Height = 250
HelpContext = 133
HorzScrollBar.Margin = 6
HorzScrollBar.Range = 291
VertScrollBar.Margin = 6
VertScrollBar.Range = 165
Align = alClient
AutoScroll = False
Color = clNavy
ParentColor = False
TabOrder = 0
object Label2: TLabel
Left = 9
Top = 11
Width = 76
Height = 15
Alignment = taRightJustify
AutoSize = False
Caption = 'ECZANE ADI'
FocusControl = EditECZADI
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 26
Top = 36
Width = 59
Height = 15
Alignment = taRightJustify
AutoSize = False
Caption = 'TAR�H'
FocusControl = EditTARIH
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 26
Top = 62
Width = 59
Height = 15
Alignment = taRightJustify
AutoSize = False
Caption = '�R�N ADI'
FocusControl = EditILACAD
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 26
Top = 118
Width = 59
Height = 15
Alignment = taRightJustify
AutoSize = False
Caption = 'ADET'
FocusControl = EditADET
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 26
Top = 144
Width = 59
Height = 15
Alignment = taRightJustify
AutoSize = False
Caption = 'TUTAR'
FocusControl = EditTUTAR
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SpeedButton1: TSpeedButton
Left = 344
Top = 57
Width = 24
Height = 25
Hint = '�r�n Se�'
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000000000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FBFFF
FFFFF000000033333333FBBFFFFBF00000003333333FBFFFFBFFFE0000003333
333FBFFFFBFBF600000033333333FBBFFFFFF70000003333333444FBFFFBF600
000033333344834FBFFFF1000000333334847F84BFFFF6000000333334484F84
FBBFB00000003333348F74483FF3F6000000333344FFF7433333300000003344
8F8444333333300000003448F7433333333330000000348F7733333333333000
000034F77433333333333F000000344443333333333330000000333333333333
333337000000}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton1Click
end
object Label1: TLabel
Left = 6
Top = 91
Width = 79
Height = 15
Alignment = taRightJustify
AutoSize = False
Caption = 'B�R�M F�YATI'
FocusControl = EditTUTAR
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SpeedButton2: TSpeedButton
Left = 278
Top = 7
Width = 24
Height = 25
Hint = 'Eczane Se�'
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000000000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FBFFF
FFFFF000000033333333FBBFFFFBF00000003333333FBFFFFBFFFE0000003333
333FBFFFFBFBF600000033333333FBBFFFFFF70000003333333444FBFFFBF600
000033333344834FBFFFF1000000333334847F84BFFFF6000000333334484F84
FBBFB00000003333348F74483FF3F6000000333344FFF7433333300000003344
8F8444333333300000003448F7433333333330000000348F7733333333333000
000034F77433333333333F000000344443333333333330000000333333333333
333337000000}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton2Click
end
object DBText1: TDBText
Left = 303
Top = 147
Width = 65
Height = 17
DataField = 'NO'
DataSource = DataSource1
Font.Color = clSilver
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 244
Top = 146
Width = 56
Height = 14
Caption = 'Takas No :'
Font.Color = clSilver
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object EditECZADI: TDBEdit
Left = 92
Top = 7
Width = 180
Height = 22
CharCase = ecUpperCase
DataField = 'ECZADI'
DataSource = DataSource1
MaxLength = 0
TabOrder = 0
end
object EditTARIH: TDBEdit
Left = 92
Top = 33
Width = 77
Height = 22
DataField = 'TARIH'
DataSource = DataSource1
MaxLength = 0
TabOrder = 1
end
object EditILACAD: TDBEdit
Left = 92
Top = 58
Width = 245
Height = 22
Color = clSilver
DataField = 'ILACAD'
DataSource = DataSource1
MaxLength = 0
ReadOnly = True
TabOrder = 2
end
object EditADET: TDBEdit
Left = 92
Top = 114
Width = 40
Height = 22
DataField = 'ADET'
DataSource = DataSource1
MaxLength = 0
TabOrder = 4
OnExit = EditADETExit
end
object EditTUTAR: TDBEdit
Left = 92
Top = 140
Width = 143
Height = 22
DataField = 'TUTAR'
DataSource = DataSource1
MaxLength = 0
TabOrder = 5
end
object DBRadioGroup1: TDBRadioGroup
Left = 14
Top = 173
Width = 354
Height = 65
Caption = 'Takas Tipi'
Color = clSilver
Columns = 2
DataField = 'TIP'
DataSource = DataSource1
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
Items.Strings = (
'�r�n Ald�m'
'�r�n Verdim'
'�r�n Ald�m(Sto�a Ekle)'
'�r�n Verdim(Stoktan D��)')
ParentColor = False
ParentFont = False
TabOrder = 6
Values.Strings = (
'A'
'U'
'E'
'V')
end
object DBEdit1: TDBEdit
Left = 93
Top = 86
Width = 142
Height = 22
Color = clSilver
DataField = 'FIYAT'
DataSource = DataSource2
MaxLength = 0
ReadOnly = True
TabOrder = 3
end
object DBRadioGroup2: TDBRadioGroup
Left = 255
Top = 86
Width = 82
Height = 52
Caption = 'Son Durum'
Color = clSilver
DataField = 'SONDURUM'
DataSource = DataSource1
Items.Strings = (
'A��k'
'Kapat�ld�')
ParentColor = False
TabOrder = 7
Values.Strings = (
'A'
'K')
end
end
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 399
Height = 49
HelpContext = 133
Align = alTop
BevelInner = bvLowered
BorderWidth = 2
Color = clRed
TabOrder = 2
object BitBtnARA: TBitBtn
Left = 111
Top = 12
Width = 79
Height = 25
Caption = 'Arama'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = BitBtnARAClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object BtnSORGU: TBitBtn
Left = 210
Top = 12
Width = 79
Height = 25
Caption = 'Sorgu'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = BtnSORGUClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333FF3FF3333333333CC30003333333333773777333333333C33
3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
33003377333337F33377333333333C333300333F333337F33377339333333C33
3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
330077F377F337F33377993399333C33330077FF773337F33377399993333C33
33333777733337F333FF333333333C33300033333333373FF7773333333333CC
3000333333333377377733333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn1: TBitBtn
Left = 308
Top = 12
Width = 79
Height = 25
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Kind = bkClose
end
object BtnGUN: TBitBtn
Left = 13
Top = 12
Width = 79
Height = 25
Caption = 'G�ncelleme'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = BtnGUNClick
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 359
Top = 61
end
object Table1: TTable
BeforeOpen = Table1BeforeOpen
AfterInsert = Table1AfterInsert
BeforeEdit = Table1BeforeEdit
AfterPost = Table1AfterPost
BeforeDelete = Table1BeforeDelete
DatabaseName = 'ECZ'
TableName = 'takas.db'
Left = 332
Top = 61
object Table1NO: TIntegerField
FieldName = 'NO'
end
object Table1ECZADI: TStringField
FieldName = 'ECZADI'
Size = 24
end
object Table1ILACAD: TStringField
FieldName = 'ILACAD'
Size = 36
end
object Table1ADET: TSmallintField
FieldName = 'ADET'
end
object Table1TUTAR: TCurrencyField
FieldName = 'TUTAR'
end
object Table1TIP: TStringField
FieldName = 'TIP'
Size = 1
end
object Table1TARIH: TDateField
FieldName = 'TARIH'
EditMask = '!90/90/9900;1;_'
end
object Table1SONDURUM: TStringField
FieldName = 'SONDURUM'
Size = 1
end
end
object UrunAlTab: TTable
DatabaseName = 'ECZ'
IndexFieldNames = 'ILACAD'
MasterFields = 'ILACAD'
MasterSource = DataSource1
TableName = 'URUN.DB'
Left = 240
Top = 89
object UrunAlTabILACAD: TStringField
FieldName = 'ILACAD'
Size = 36
end
object UrunAlTabFIYAT: TCurrencyField
FieldName = 'FIYAT'
end
object UrunAlTabMIKTAR: TIntegerField
FieldName = 'MIKTAR'
end
object UrunAlTabILACNO: TAutoIncField
FieldName = 'ILACNO'
end
end
object DataSource2: TDataSource
DataSet = UrunAlTab
Left = 208
Top = 89
end
object T_Urunhrk: TTable
Filter = 'SIRANO>9999999'
Filtered = True
DatabaseName = 'ECZ'
IndexFieldNames = 'ILACNO;GCTARIH;ALSATNO;SIRANO'
TableName = 'URUNHRK.DB'
Left = 216
Top = 120
object T_UrunhrkILACNO: TIntegerField
FieldName = 'ILACNO'
end
object T_UrunhrkGCTARIH: TDateTimeField
FieldName = 'GCTARIH'
end
object T_UrunhrkALSATNO: TFloatField
FieldName = 'ALSATNO'
end
object T_UrunhrkSIRANO: TIntegerField
FieldName = 'SIRANO'
end
object T_UrunhrkGIRMIK: TIntegerField
FieldName = 'GIRMIK'
end
object T_UrunhrkGIRFIYAT: TCurrencyField
FieldName = 'GIRFIYAT'
end
object T_UrunhrkCIKMIK: TIntegerField
FieldName = 'CIKMIK'
end
object T_UrunhrkCIKFIYAT: TCurrencyField
FieldName = 'CIKFIYAT'
end
end
end